Chyba pri ulozeni ICO do GIF s pomoci GraphicEx

Otázka od: Bohac Frantisek

23. 6. 2004 9:44

Dobry den,

potrebuji ulozit ikonu ulozenou v TImage.Picture.Icon (jeji handle) na disk
ve formatu GIF; kdyz dam TGIFGraphic.SaveToFile(), tak se ulozi do *.gif,
ale je to ve formatu BMP. Co s tim? Kde je chyba?

uses GraphicEx; // http://www.soft-gems.net/Graphics.php
..

procedure TfrmMain.Button3Click(Sender: TObject);
var
GIFGraphic: TGIFGraphic;
begin
  GIFGraphic := TGIFGraphic.Create;
  try
    GIFGraphic.Width := Image1.Picture.Icon.Width;
    GIFGraphic.Height := Image1.Picture.Icon.Height;
    GIFGraphic.Canvas.Draw(0, 0, Image1.Picture.Icon); // zapise se dobre
    GIFGraphic.SaveToFile('d:\pokus.gif'); // ale na disk se zapisuje ve
formatu BMP

  finally
    GIFGraphic.Free;
  end;
end;

Dekuji za jakoukoliv radu.

S pozdravem

Frantisek Bohac